﻿<!-- #include file="mymin.asp" -->
<%Call Head()%>
<card title="文章管理"><p>
<%
dim rs,sql

set rs=server.createobject("adodb.recordset")
sql="Select * from 74hu_article where classid<>0 order by id desc"
If key=2 And keyids<>"" Then sql="Select * from 74hu_article where classid<>0 and classid in ("&keyids&") order by id desc"
rs.open sql,myconn,1,1
If Not rs.eof Then
	dim pagesize,count,page,i,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
		If rs.eof Then Exit For
%><a href='wzgl.asp?sid=<%=sid%>&amp;id=<%=rs("id")%>&amp;classid=<%=rs("classid")%>'>[管理]</a><%=i+(page-1)*PageSize%>.<a href='smsview.asp?sid=<%=sid%>&amp;id=<%=rs("id")%>&amp;ids=<%=rs("classid")%>&amp;TP=1'><%=nowml(rs("title"))%></a><br/>
<%
		rs.moveNext
	Next
	w showPage("wzcl.asp", "", page, pageCount)&"<br/>"
Else
	w "暂时没有文章！"

end if
rs.close
set rs=nothing

%>
<br/>----------<br/>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a><%Call last%>